﻿Namespace Domain
    Public Class Settings

#Region " Variables "

        Private _probWumpus As Decimal
        Private _probPit As Decimal
        Private _probGold As Decimal
        Private _gridSize As Integer
        Private _picSizeHeight As Integer
        Private _picSizeWidth As Integer
        Private _player As Boolean


#End Region

#Region " Properties "

        Public Property probWumpus() As Decimal
            Get
                Return _probWumpus
            End Get
            Set(ByVal value As Decimal)
                _probWumpus = value
            End Set
        End Property

        Public Property probPit() As Decimal
            Get
                Return _probPit
            End Get
            Set(ByVal value As Decimal)
                _probPit = value
            End Set
        End Property
        Public Property probGold() As Decimal
            Get
                Return _probGold
            End Get
            Set(ByVal value As Decimal)
                _probGold = value
            End Set
        End Property
        Public Property picSizeWidth() As Integer
            Get
                Return _picSizeWidth
            End Get
            Set(ByVal value As Integer)
                _picSizeWidth = value
            End Set
        End Property

        Public Property picSizeHeight() As Integer
            Get
                Return _picSizeHeight
            End Get
            Set(ByVal value As Integer)
                _picSizeHeight = value
            End Set
        End Property

        Public Property gridSize() As Integer
            Get
                Return _gridSize
            End Get
            Set(ByVal value As Integer)
                _gridSize = value
            End Set
        End Property

        Public Property player As Boolean
            Get
                Return _player
            End Get
            Set(ByVal value As Boolean)
                _player = value
            End Set
        End Property

#End Region

    End Class
End Namespace